---
title: "Texting Meta Analysis Replication Code"
author: "Jose S. Gomez"
date: "8/12/2023"
output: html_document
---

```{r, setup, include=FALSE}
rm(list=ls())       # clear objects in memory
knitr::opts_knit$set(root.dir = '/Users/gomez/Library/CloudStorage/Dropbox/GOTV V/Replication Files/Data') #Set Working Directory
```

#setup clean working environment, packages and data
```{r}
library(foreign) 
library(metafor) # meta-analysis package
library(stargazer)
library(meta)
gotv_text <- read.csv("GOTV V Text Messaging (Collapsed).csv")
```

```{r}
#Overall SMS Effects
rma(yi = Meta_b, 
    sei= Meta_SE,
    method = "DL", 
    data= gotv_text)
```
